'定义变量
Dim ado As Object
'后期绑定ADO
Set ado = CreateObject("adodb.connection")
'建立链接
ado.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=0';Data Source=" & ThisWorkbook.FullName
'处理数据

'关闭链接
ado.Close
'释放内存
Set ado = Nothing
